COMPAT.LSP[S,DWP] - www.SailDart.org

perm filename COMPAT.LSP[S,DWP] blob sn#080398 filedate 1974-01-07 generic text, type T, neo UTF8


(DEFPROP COMPATFNS
 (COMPATFNS (PUTPROP (QUOTE AND#) (GET (QUOTE AND) (QUOTE FSUBR)) (QUOTE FSUBR))
	    (PUTPROP (QUOTE OR#) (GET (QUOTE OR) (QUOTE FSUBR)) (QUOTE FSUBR))
	    (PUTPROP (QUOTE MEMQ#) (GET (QUOTE MEMQ) (QUOTE SUBR)) (QUOTE SUBR))
	    (PUTPROP (QUOTE MEMBER#) (GET (QUOTE MEMBER) (QUOTE SUBR)) (QUOTE SUBR)))
VALUE)

(PUTPROP (QUOTE AND#) (GET (QUOTE AND) (QUOTE FSUBR)) (QUOTE FSUBR))

(PUTPROP (QUOTE OR#) (GET (QUOTE OR) (QUOTE FSUBR)) (QUOTE FSUBR))

(PUTPROP (QUOTE MEMQ#) (GET (QUOTE MEMQ) (QUOTE SUBR)) (QUOTE SUBR))

(PUTPROP (QUOTE MEMBER#) (GET (QUOTE MEMBER) (QUOTE SUBR)) (QUOTE SUBR))